home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / am9305b.lha / Amos / Tasten.asc < prev    next >
Text File  |  1993-02-10  |  242b  |  10 lines
  1.  C=Execall(-138)
  2.   Repeat
  3.     TASTE=Peek($BFEC01)   
  4.     If TASTE<>0
  5.       Print TASTE
  6.       Poke $BFEC01,0 : Rem Tastencode löschen, sonst Wiederholung der Ausgabe
  7.     End If
  8.   Until Btst(6,$BFE001)=0 : Rem linke Maustaste
  9.   C=Execall(-138)
  10.